/ NetNews Offline 2 / NetNews Offline Volume 2.iso / news / comp / lang / rexx / 29

< prev

next >

MacOS 8.1

Win98

DOS

browse contents

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 50 61 74 68 3a 20 6e 65 | 77 73 2d 66 65 65 64 2e |Path: ne|ws-feed.|
|00000010| 6d 63 69 2e 6e 65 77 73 | 63 6f 72 70 2e 63 6f 6d |mci.news|corp.com|
|00000020| 21 75 73 65 6e 65 74 0a | 46 72 6f 6d 3a 20 4a 65 |!usenet.|From: Je|
|00000030| 66 66 20 48 65 6e 6e 69 | 63 6b 20 3c 6a 68 65 6e |ff Henni|ck <jhen|
|00000040| 6e 69 63 6b 40 6d 63 69 | 2e 6e 65 77 73 63 6f 72 |nick@mci|.newscor|
|00000050| 70 2e 63 6f 6d 3e 0a 4e | 65 77 73 67 72 6f 75 70 |p.com>.N|ewsgroup|
|00000060| 73 3a 20 63 6f 6d 70 2e | 6c 61 6e 67 2e 72 65 78 |s: comp.|lang.rex|
|00000070| 78 0a 53 75 62 6a 65 63 | 74 3a 20 52 65 3a 20 4e |x.Subjec|t: Re: N|
|00000080| 65 77 62 69 65 3a 20 6e | 75 6d 65 72 69 63 73 20 |ewbie: n|umerics |
|00000090| 69 6e 20 52 45 58 58 0a | 44 61 74 65 3a 20 33 20 |in REXX.|Date: 3 |
|000000a0| 4a 61 6e 20 31 39 39 36 | 20 30 30 3a 33 35 3a 33 |Jan 1996| 00:35:3|
|000000b0| 34 20 47 4d 54 0a 4f 72 | 67 61 6e 69 7a 61 74 69 |4 GMT.Or|ganizati|
|000000c0| 6f 6e 3a 20 55 73 65 72 | 20 61 6e 64 20 54 65 73 |on: User| and Tes|
|000000d0| 74 65 72 20 6f 66 20 4d | 43 49 2f 4e 65 77 73 20 |ter of M|CI/News |
|000000e0| 43 6f 72 70 2e 20 42 65 | 74 61 0a 44 69 73 74 72 |Corp. Be|ta.Distr|
|000000f0| 69 62 75 74 69 6f 6e 3a | 20 69 6e 65 74 0a 4d 65 |ibution:| inet.Me|
|00000100| 73 73 61 67 65 2d 49 44 | 3a 20 3c 34 63 63 6a 30 |ssage-ID|: <4ccj0|
|00000110| 6d 24 34 65 6c 40 6b 6c | 65 69 6e 2e 64 65 6c 70 |m$4el@kl|ein.delp|
|00000120| 68 69 2e 63 6f 6d 3e 0a | 52 65 66 65 72 65 6e 63 |hi.com>.|Referenc|
|00000130| 65 73 3a 20 3c 66 31 66 | 5f 39 36 30 31 30 31 31 |es: <f1f|_9601011|
|00000140| 31 35 33 40 68 6b 6e 65 | 74 2e 68 6b 6e 65 74 2e |153@hkne|t.hknet.|
|00000150| 6f 72 67 3e 20 3c 44 4b | 4b 71 31 36 2e 42 39 74 |org> <DK|Kq16.B9t|
|00000160| 40 72 6f 63 6b 79 64 2e | 72 6f 63 6b 65 66 65 6c |@rockyd.|rockefel|
|00000170| 6c 65 72 2e 65 64 75 3e | 0a 4e 4e 54 50 2d 50 6f |ler.edu>|.NNTP-Po|
|00000180| 73 74 69 6e 67 2d 48 6f | 73 74 3a 20 73 6c 69 70 |sting-Ho|st: slip|
|00000190| 31 30 39 2d 31 37 38 2e | 62 62 2e 64 65 6c 70 68 |109-178.|bb.delph|
|000001a0| 69 2e 63 6f 6d 0a 4d 69 | 6d 65 2d 56 65 72 73 69 |i.com.Mi|me-Versi|
|000001b0| 6f 6e 3a 20 31 2e 30 0a | 43 6f 6e 74 65 6e 74 2d |on: 1.0.|Content-|
|000001c0| 54 79 70 65 3a 20 74 65 | 78 74 2f 70 6c 61 69 6e |Type: te|xt/plain|
|000001d0| 3b 20 63 68 61 72 73 65 | 74 3d 75 73 2d 61 73 63 |; charse|t=us-asc|
|000001e0| 69 69 0a 43 6f 6e 74 65 | 6e 74 2d 54 72 61 6e 73 |ii.Conte|nt-Trans|
|000001f0| 66 65 72 2d 45 6e 63 6f | 64 69 6e 67 3a 20 37 62 |fer-Enco|ding: 7b|
|00000200| 69 74 0a 58 2d 4d 61 69 | 6c 65 72 3a 20 4d 6f 7a |it.X-Mai|ler: Moz|
|00000210| 69 6c 6c 61 20 31 2e 32 | 32 44 20 28 57 69 6e 64 |illa 1.2|2D (Wind|
|00000220| 6f 77 73 3b 20 55 3b 20 | 31 36 62 69 74 29 0a 54 |ows; U; |16bit).T|
|00000230| 6f 3a 20 64 61 6e 40 63 | 61 6d 65 6c 6f 74 2e 72 |o: dan@c|amelot.r|
|00000240| 6f 63 6b 65 66 65 6c 6c | 65 72 2e 65 64 75 0a 0a |ockefell|er.edu..|
|00000250| 64 61 6e 40 63 61 6d 65 | 6c 6f 74 2e 72 6f 63 6b |dan@came|lot.rock|
|00000260| 65 66 65 6c 6c 65 72 2e | 65 64 75 20 28 44 61 6e |efeller.|edu (Dan|
|00000270| 20 53 61 6d 62 65 72 29 | 20 77 72 6f 74 65 3a 0a | Samber)| wrote:.|
|00000280| 3e 49 20 74 72 69 65 64 | 20 74 68 65 20 66 6f 6c |>I tried| the fol|
|00000290| 6c 6f 77 69 6e 67 3a 0a | 3e 0a 3e 64 31 20 3d 20 |lowing:.|>.>d1 = |
|000002a0| 22 31 32 33 34 22 78 0a | 3e 73 61 79 20 64 31 0a |"1234"x.|>say d1.|
|000002b0| 3e 54 68 69 73 20 67 69 | 76 65 73 20 61 20 66 75 |>This gi|ves a fu|
|000002c0| 6e 6b 79 20 63 68 61 72 | 61 63 74 65 72 20 73 69 |nky char|acter si|
|000002d0| 6e 63 65 20 74 68 65 20 | 76 61 72 69 61 62 6c 65 |nce the |variable|
|000002e0| 20 69 73 20 61 63 74 75 | 61 6c 6c 79 20 74 68 65 | is actu|ally the|
|000002f0| 20 68 65 78 0a 3e 6e 75 | 6d 62 65 72 20 31 32 33 | hex.>nu|mber 123|
|00000300| 34 20 61 6e 64 20 22 73 | 61 79 22 20 69 73 20 61 |4 and "s|ay" is a|
|00000310| 70 70 61 72 65 6e 74 6c | 79 20 65 78 70 65 63 74 |pparentl|y expect|
|00000320| 69 6e 67 20 61 20 73 74 | 72 69 6e 67 20 6f 66 20 |ing a st|ring of |
|00000330| 41 53 43 49 49 20 64 61 | 74 61 0a 3e 74 6f 20 62 |ASCII da|ta.>to b|
|00000340| 65 20 70 61 73 73 65 64 | 20 74 6f 20 69 74 2e 0a |e passed| to it..|
|00000350| 0a 4e 6f 74 20 71 75 69 | 74 65 2c 20 22 31 32 33 |.Not qui|te, "123|
|00000360| 34 22 78 20 69 73 20 61 | 6c 73 6f 20 22 31 32 20 |4"x is a|lso "12 |
|00000370| 33 34 22 78 20 6f 72 20 | 22 31 32 22 78 20 7c 7c |34"x or |"12"x |||
|00000380| 20 22 33 34 22 78 20 6f | 72 20 58 32 63 28 31 32 | "34"x o|r X2c(12|
|00000390| 29 20 7c 7c 20 0a 58 32 | 63 28 33 34 29 2c 20 77 |) || .X2|c(34), w|
|000003a0| 68 65 72 65 20 65 61 63 | 68 20 5f 70 61 69 72 5f |here eac|h _pair_|
|000003b0| 20 6f 66 20 68 65 78 5f | 64 69 67 69 74 73 20 74 | of hex_|digits t|
|000003c0| 72 61 6e 73 6c 61 74 65 | 73 20 69 6e 74 6f 20 61 |ranslate|s into a|
|000003d0| 20 0a 62 79 74 65 5f 63 | 68 61 72 61 63 74 65 72 | .byte_c|haracter|
|000003e0| 2e 20 20 53 6f 20 53 61 | 79 20 69 73 20 67 69 76 |.  So Sa|y is giv|
|000003f0| 69 6e 67 20 79 6f 75 20 | 74 77 6f 20 63 68 61 72 |ing you |two char|
|00000400| 61 63 74 65 72 73 2c 20 | 74 68 65 20 66 75 6e 63 |acters, |the func|
|00000410| 6b 79 20 6f 6e 65 20 28 | 61 6e 20 0a 75 70 2d 64 |ky one (|an .up-d|
|00000420| 6f 77 6e 2d 61 72 72 6f | 77 20 69 6e 20 44 4f 53 |own-arro|w in DOS|
|00000430| 29 20 66 6f 6c 6c 6f 77 | 65 64 20 62 79 20 22 34 |) follow|ed by "4|
|00000440| 22 20 28 73 69 6e 63 65 | 20 79 6f 75 20 61 72 65 |" (since| you are|
|00000450| 20 69 6e 20 61 6e 20 41 | 53 43 49 49 20 62 61 73 | in an A|SCII bas|
|00000460| 65 64 20 0a 73 79 73 74 | 65 6d 29 2e 0a 0a 3e 0a |ed .syst|em)...>.|
|00000470| 3e 64 32 20 3d 20 34 36 | 36 30 0a 3e 73 61 79 20 |>d2 = 46|60.>say |
|00000480| 64 32 0a 3e 54 68 69 73 | 20 70 72 69 6e 74 73 20 |d2.>This| prints |
|00000490| 6f 75 74 20 34 36 36 30 | 2e 20 46 69 6e 65 2e 20 |out 4660|. Fine. |
|000004a0| 49 20 63 68 6f 73 65 20 | 34 36 36 30 20 73 69 6e |I chose |4660 sin|
|000004b0| 63 65 20 74 68 69 73 20 | 69 73 20 74 68 65 20 64 |ce this |is the d|
|000004c0| 65 63 69 6d 61 6c 0a 3e | 65 78 70 72 65 73 73 69 |ecimal.>|expressi|
|000004d0| 6f 6e 20 6f 66 20 74 68 | 65 20 68 65 78 20 6e 75 |on of th|e hex nu|
|000004e0| 6d 62 65 72 20 31 32 33 | 34 2e 0a 3e 0a 3e 69 66 |mber 123|4..>.>if|
|000004f0| 20 49 20 73 61 79 0a 3e | 64 33 20 3d 20 64 32 78 | I say.>|d3 = d2x|
|00000500| 28 64 32 29 0a 3e 73 61 | 79 20 64 33 0a 3e 54 68 |(d2).>sa|y d3.>Th|
|00000510| 69 73 20 70 72 69 6e 74 | 73 20 6f 75 74 20 31 32 |is print|s out 12|
|00000520| 33 34 2e 20 46 69 6e 65 | 2e 20 54 68 69 73 20 69 |34. Fine|. This i|
|00000530| 73 20 77 68 61 74 20 77 | 65 20 65 78 70 65 63 74 |s what w|e expect|
|00000540| 20 73 69 6e 63 65 20 63 | 6f 6e 76 65 72 74 69 6e | since c|onvertin|
|00000550| 67 0a 3e 64 65 63 69 6d | 61 6c 20 34 36 36 30 20 |g.>decim|al 4660 |
|00000560| 67 69 76 65 73 20 75 73 | 20 31 32 33 34 20 68 65 |gives us| 1234 he|
|00000570| 78 2e 20 53 6f 20 6f 6e | 65 20 6d 69 67 68 74 20 |x. So on|e might |
|00000580| 62 65 20 70 72 6f 6d 70 | 74 65 64 20 74 6f 20 73 |be promp|ted to s|
|00000590| 61 79 20 4f 4b 0a 3e 77 | 65 20 61 72 65 20 64 6f |ay OK.>w|e are do|
|000005a0| 6e 65 2e 20 42 75 74 20 | 4e 4f 21 21 21 21 21 20 |ne. But |NO!!!!! |
|000005b0| 77 68 61 74 20 49 20 52 | 45 41 4c 4c 59 20 77 61 |what I R|EALLY wa|
|000005c0| 6e 74 20 69 73 20 66 6f | 72 20 52 45 58 58 20 74 |nt is fo|r REXX t|
|000005d0| 6f 20 70 72 69 6e 74 0a | 3e 6f 75 74 20 74 68 61 |o print.|>out tha|
|000005e0| 74 20 73 61 6d 65 20 66 | 75 6e 6b 79 20 63 68 61 |t same f|unky cha|
|000005f0| 72 61 63 74 65 72 20 61 | 73 20 69 74 20 64 69 64 |racter a|s it did|
|00000600| 20 77 68 65 6e 20 49 20 | 73 61 69 64 20 73 61 79 | when I |said say|
|00000610| 20 64 31 2e 20 49 20 75 | 6e 64 65 72 73 74 61 6e | d1. I u|nderstan|
|00000620| 64 0a 3e 66 72 6f 6d 20 | 74 68 69 73 20 65 78 70 |d.>from |this exp|
|00000630| 65 72 69 6d 65 6e 74 20 | 74 68 61 74 20 52 45 58 |eriment |that REX|
|00000640| 58 20 69 73 20 64 65 66 | 69 6e 69 74 6c 79 20 73 |X is def|initly s|
|00000650| 74 6f 72 69 6e 67 20 64 | 31 20 61 6e 64 20 64 33 |toring d|1 and d3|
|00000660| 20 69 6e 0a 3e 61 20 64 | 69 66 66 65 72 65 6e 74 | in.>a d|ifferent|
|00000670| 20 77 61 79 2e 20 54 68 | 69 73 20 69 73 20 66 75 | way. Th|is is fu|
|00000680| 72 74 68 65 72 20 6d 61 | 64 65 20 6f 62 76 69 6f |rther ma|de obvio|
|00000690| 75 73 20 62 65 63 61 75 | 73 65 20 64 33 20 61 72 |us becau|se d3 ar|
|000006a0| 72 69 76 65 73 0a 3e 61 | 74 20 6d 79 20 64 65 76 |rives.>a|t my dev|
|000006b0| 69 63 65 20 64 72 69 76 | 65 72 20 61 73 20 33 31 |ice driv|er as 31|
|000006c0| 33 32 33 33 33 34 20 28 | 54 68 61 74 20 69 73 20 |323334 (|That is |
|000006d0| 41 53 43 49 49 20 31 20 | 28 33 31 20 68 65 78 29 |ASCII 1 |(31 hex)|
|000006e0| 20 66 6f 6c 6c 6f 77 65 | 64 20 62 79 20 41 53 43 | followe|d by ASC|
|000006f0| 49 49 0a 3e 32 20 28 33 | 32 20 68 65 78 20 29 20 |II.>2 (3|2 hex ) |
|00000700| 65 74 63 29 2e 0a 3e 0a | 3e 55 6e 6c 65 73 73 20 |etc)..>.|>Unless |
|00000710| 49 20 61 6d 20 69 6e 73 | 61 6e 65 20 28 20 61 20 |I am ins|ane ( a |
|00000720| 64 69 73 74 69 6e 63 74 | 20 70 6f 73 73 69 62 69 |distinct| possibi|
|00000730| 6c 69 74 79 29 20 69 74 | 73 20 6c 6f 6f 6b 69 6e |lity) it|s lookin|
|00000740| 20 6c 69 6b 65 20 49 27 | 6d 0a 3e 67 6f 6e 6e 61 | like I'|m.>gonna|
|00000750| 20 68 61 76 65 20 74 6f | 20 77 72 69 74 65 20 6d | have to| write m|
|00000760| 79 20 6f 77 6e 20 66 75 | 6e 63 74 69 6f 6e 2e 0a |y own fu|nction..|
|00000770| 3e 0a 0a 54 68 65 20 73 | 61 6e 69 74 79 2d 73 61 |>..The s|anity-sa|
|00000780| 76 69 6e 67 20 66 75 6e | 63 74 69 6f 6e 20 79 6f |ving fun|ction yo|
|00000790| 75 20 77 61 6e 74 20 6e | 65 78 74 20 69 73 20 58 |u want n|ext is X|
|000007a0| 32 63 28 29 2e 0a 0a 64 | 34 20 3d 20 58 32 63 28 |2c()...d|4 = X2c(|
|000007b0| 64 33 29 0a 53 61 79 20 | 64 34 0a 0a 47 69 76 65 |d3).Say |d4..Give|
|000007c0| 73 20 6f 75 72 20 66 75 | 6e 6b 79 20 61 6e 64 20 |s our fu|nky and |
|000007d0| 22 34 22 0a 0a 53 68 6f | 72 74 65 72 20 69 73 0a |"4"..Sho|rter is.|
|000007e0| 0a 53 61 79 20 58 32 63 | 28 31 32 33 34 29 0a 0a |.Say X2c|(1234)..|
|000007f0| 54 72 79 20 73 6f 6d 65 | 20 54 72 61 63 65 20 3f |Try some| Trace ?|
|00000800| 52 20 6f 72 20 54 72 61 | 63 65 20 3f 49 20 74 6f |R or Tra|ce ?I to|
|00000810| 20 77 61 74 63 68 20 73 | 6f 6d 65 2e 20 20 43 68 | watch s|ome.  Ch|
|00000820| 65 63 6b 20 77 69 74 68 | 20 20 5f 54 68 65 20 52 |eck with|  _The R|
|00000830| 45 58 58 20 0a 4c 61 6e | 67 75 61 67 65 5f 2c 20 |EXX .Lan|guage_, |
|00000840| 32 6e 64 20 45 64 2e 20 | 2d 2d 20 43 6f 77 6c 69 |2nd Ed. |-- Cowli|
|00000850| 73 68 61 77 2e 0a 3e 0a | 3e 44 61 6e 0a 0a 2d 2d |shaw..>.|>Dan..--|
|00000860| 20 0a 4a 65 66 66 20 48 | 65 6e 6e 69 63 6b 0a 4a | .Jeff H|ennick.J|
|00000870| 48 65 6e 6e 69 63 6b 40 | 44 65 6c 70 68 69 2e 43 |Hennick@|Delphi.C|
|00000880| 6f 6d 20 20 28 74 65 6d | 70 3a 29 20 4a 48 65 6e |om  (tem|p:) JHen|
|00000890| 6e 69 63 6b 40 4d 43 49 | 2e 4e 65 77 73 43 6f 72 |nick@MCI|.NewsCor|
|000008a0| 70 2e 43 6f 6d 0a 0a 0a |                         |p.Com...|        |
+--------+-------------------------+-------------------------+--------+--------+